home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_c / cuj0696.zip / DWYER.ZIP / LIB / GETLDBL.C < prev    next >
C/C++ Source or Header  |  1995-12-12  |  842b  |  48 lines
  1. /* ============ */
  2. /* GetLDBL.c    */
  3. /* ============ */
  4. #include <stdio.h>
  5.  
  6. #define    FLUSH_LINE(u)            \
  7.     {                    \
  8.     int    x;            \
  9.     do                \
  10.     {                \
  11.         x = getc(u);        \
  12.     }                \
  13.     while (x != EOF && x != '\n');    \
  14.     }
  15. /* ==================================================== */
  16. /* GetLDBL - prompts operator with s to get long double    */
  17. /* ==================================================== */
  18. # if defined(__STDC__) || defined(__PROTO__)
  19. void
  20. GetLDBL(char *s, long double *d)
  21. # else
  22. void
  23. GetLDBL(s, d)
  24. char   *s;
  25. long    double *d;
  26. # endif
  27. {
  28.     fprintf(stderr, "%s", s);
  29.  
  30.     scanf("%Le", d);
  31.  
  32.     FLUSH_LINE(stdin);
  33. }
  34. # if TEST
  35. void
  36. main()
  37. {
  38.     long    double  target;
  39.  
  40.     while (main)
  41.     {
  42.     GetLDBL("Enter next long double: ", &target);
  43.  
  44.     printf("You entered %.21Le\n", target);
  45.     }
  46. }
  47. # endif
  48.